summaryrefslogblamecommitdiffstats
path: root/BRI.FOR
blob: 1506efba6d43b3f37813d9311c03663a355fb04d (plain) (tree)
1
2
3
4
5
6
7
8
9








                                             
	SUBROUTINE BRI
	DO 10 I=1,23
	CALL PKURZ(I,1,IND)
	WRITE(*,5)
5	FORMAT('                           ')
10	CONTINUE
	RETURN
	END